From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 21 Jan 2004 05:27:58 +0000 (+0000)
Subject: (wait_reading_process_input) [SYNC_INPUT]: Check interrupt_input_pending.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~24417
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=06f0f48d0856788f2b4b95bc4b9c11fa5198ec93;p=emacs.git

(wait_reading_process_input) [SYNC_INPUT]: Check interrupt_input_pending.
---

diff --git a/src/process.c b/src/process.c
index 854607a2230..fec6fdb2660 100644
--- a/src/process.c
+++ b/src/process.c
@@ -4080,6 +4080,10 @@ wait_reading_process_input (time_limit, microsecs, read_kbd, do_display)
 	 Otherwise, do pending quit if requested.  */
       if (XINT (read_kbd) >= 0)
 	QUIT;
+#ifdef SYNC_INPUT
+      else if (interrupt_input_pending)
+	handle_async_input ();
+#endif
 
       /* Exit now if the cell we're waiting for became non-nil.  */
       if (! NILP (wait_for_cell) && ! NILP (XCAR (wait_for_cell)))